

(deftemplate culoarePantaloni (slot persoana) (slot culoare)) ;jucatorii au definite o culoare
(deftemplate pozitie (slot persoana) (slot x))               ;si o pozitie

(assert (culoarePantaloni (persoana Mutu)(culoare albastru))) ; assert <-> insert din DB
(assert (culoarePantaloni (persoana Mutu)(culoare verde)))
(assert (culoarePantaloni (persoana Mutu)(culoare rosu)))
(assert (culoarePantaloni (persoana Mutu)(culoare orange)))
(assert (culoarePantaloni (persoana Chivu)(culoare albastru)))
(assert (culoarePantaloni (persoana Chivu)(culoare verde)))
(assert (culoarePantaloni (persoana Chivu)(culoare rosu)))
(assert (culoarePantaloni (persoana Chivu)(culoare orange)))
(assert (culoarePantaloni (persoana Radoi)(culoare albastru)))
(assert (culoarePantaloni (persoana Radoi)(culoare verde)))
(assert (culoarePantaloni (persoana Radoi)(culoare rosu)))
(assert (culoarePantaloni (persoana Radoi)(culoare orange)))
(assert (culoarePantaloni (persoana Nicolita)(culoare albastru)))
(assert (culoarePantaloni (persoana Nicolita)(culoare verde)))
(assert (culoarePantaloni (persoana Nicolita)(culoare rosu)))
(assert (culoarePantaloni (persoana Nicolita)(culoare orange)))

(assert (pozitie (persoana Mutu)(x 1)))
(assert (pozitie (persoana Mutu)(x 2)))
(assert (pozitie (persoana Mutu)(x 3)))
(assert (pozitie (persoana Mutu)(x 4)))
(assert (pozitie (persoana Chivu)(x 1)))
(assert (pozitie (persoana Chivu)(x 2)))
(assert (pozitie (persoana Chivu)(x 3)))
(assert (pozitie (persoana Chivu)(x 4)))
(assert (pozitie (persoana Radoi)(x 1)))
(assert (pozitie (persoana Radoi)(x 2)))
(assert (pozitie (persoana Radoi)(x 3)))
(assert (pozitie (persoana Radoi)(x 4)))
(assert (pozitie (persoana Nicolita)(x 1)))
(assert (pozitie (persoana Nicolita)(x 2)))
(assert (pozitie (persoana Nicolita)(x 3)))
(assert (pozitie (persoana Nicolita)(x 4)))

(assert (culoarePantaloni (persoana Mario)(culoare violet)))
(facts)
;(defrule muv
;?idfapt<-(culoarePantaloni(persoana Mario)(culoare violet))
;=>
;    (retract ?idfapt)
;)

(defrule modificare
?modif<-(culoarePantaloni (persoana Mario) (culoare violet))
=>
(modify ?modif (culoare frez))
)


(run)
(facts)            
